home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh7x
/
sh75b.d64
/
superfrac 64
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
2KB
|
78 lines
1000 REM ****************
1010 REM * SUPERFRAC 64 *
1020 REM * VERSION 4.57 *
1030 REM * VOM 02.07.87 *
1040 REM * PROGRAMMING: *
1050 REM * I.CAMPHAUSEN *
1060 REM ****************
1070 :
1080 IF A=0 THEN PRINT"[147]";TAB(13);"MOMENT BITTE!"
1090 IF A=0 THEN POKE 55,0:POKE 56,142:CLR:A=1:LOAD"MC.SF 64",8,1
1100 IF A=1 THEN A=2:LOAD"DAT.SF 64",8,1
1110 :
1120 REM
1130 REM **************************
1140 REM VARIABLE/WICHTIGE ADRESSEN
1150 REM **************************
1160 REM
1170 RU=36396:DI=36413:BE=38985:GI=36607:TA=39494:DR=39510
1180 NL=39780:DL=39781:DS=39794:GL=39817:GS=39833:DG=36433
1190 A1(1)=DL:A1(2)=DS:A1(3)=GL:A1(4)=GS
1200 A2(1)=DI:A2(2)=DG:A2(3)=GIN:A2(4)=DG
1210 FOR I=1 TO 6:READ AD(I):NEXT I
1220 DATA 24576,24608,24640,26656,26688,28736
1230 FOR I=1 TO 4:READ UE$(I):NEXT I
1240 DATA " DLOAD "," DSAVE "," GLOAD "," GSAVE "
1250 :
1260 REM
1270 REM *************
1280 REM HAUPTPROGRAMM
1290 REM *************
1300 REM
1310 SYS 36352
1320 NR=PEEK(BE)-1:IF NR>0 THEN GOSUB 1510:GOTO 1320
1330 GOSUB 1350:GOTO 1320
1340 :
1350 REM
1360 REM ***************************
1370 REM UP EINGABE DER STUETZPUNKTE
1380 REM ***************************
1390 REM
1400 PRINT:PRINT
1410 FOR I=1 TO 6
1420 : H=0
1430 : PRINT"HOEHE"I"[157]. STUETZPUNKT ";:INPUT H
1440 : IF ABS(H)>30 THEN PRINT"BITTE BEACHTEN: -30 <= HOEHE <= +30![146]":GOTO1420
1450 : IF H<0 THEN H=256+H
1460 : POKE AD(I),H
1470 NEXT I
1480 SYS RU
1490 RETURN
1500 :
1510 REM
1520 REM *******************
1530 REM UP DISKETTENZUGRIFF
1540 REM *******************
1550 REM
1560 PRINT "[147][144]****************************************"
1570 PRINT "";TAB((40-LEN(UE$(NR)))/2);UE$(NR)
1580 N$="":INPUT"FILENAME ";N$
1590 IF N$="" THEN SYS DG:RETURN
1600 IF N$="$"THEN SYS DR:GOSUB 1690:IF FE=0 THEN SYS TASTE:GOTO 1560
1610 IF NR<3 THEN N$=CHR$(4)+N$
1620 IF NR>2 THEN N$=CHR$(7)+N$
1630 POKE NL,LEN(N$)
1640 FOR I=1 TO LEN(N$):POKE 703+I,ASC(MID$(N$,I,1)):NEXT I
1650 SYS A1(NR):GOSUB 1690:IF FE<>0 THEN 1560
1660 SYS A2(NR)
1670 RETURN
1680 :
1690 REM
1700 REM **************
1710 REM UP FEHLERKANAL
1720 REM **************
1730 REM
1740 OPEN 1,8,15:INPUT#1,FE,FE$,A,B:CLOSE 1
1750 PRINT:PRINT FE,FE$:IF FE<>0 THEN SYS TA
1760 RETURN